sub chatMessage {
  my ($self, $user, $email, $msg, %style) = @_;
  # Call global chatroom commands (!kick, !exit, !ban, etc.)
  &cmd_chat($self, $user, $msg);
  %style{Name} = "[$email] $user";
  foreach $socket ($chats->{chat}) {
    $self->{Sockets}->{$socket}->sendMessage($msg, %style);
  }
}